home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / shared.dir / 03104_Script_BLACK OUT SCREEN < prev    next >
Text File  |  1996-06-21  |  975b  |  30 lines
  1. -- -----------------------------------------------------------
  2. -- Handler blackOutScreen sets screen behind the director movie
  3. -- to black.
  4.  
  5. on blackOutScreen
  6.   global blackScreenObj
  7.   if (the machineType <> 256) and voidp(blackScreenObj) then
  8.     -- mac and hasn't been done already. the second test allows the author to
  9.     -- keep initializing the program without getting the error message that
  10.     -- the object already exists.
  11.     openXObjHandler "Backdrop XObj"
  12.     put backdrop(mNew) into blackScreenObj
  13.     blackScreenObj(mShow)
  14.   end if
  15. end
  16.  
  17. -- -----------------------------------------------------------
  18. -- Handler unBlackOutScreen disposes of the xobject used to
  19. -- black out the screen and closes the xobject library.
  20.  
  21. on unBlackOutScreen
  22.   global blackScreenObj
  23.   
  24.   if (the machineType <> 256) then -- mac
  25.     if objectP(blackScreenObj) then
  26.     blackScreenObj(mdispose)
  27.     closeXObjHandler "Backdrop XObj"
  28.     end if
  29.   end if
  30. end